home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / KUTUPHAN.BAS < prev    next >
BASIC Source File  |  1980-01-10  |  30KB  |  729 lines
  1. 10 REM ₧ÿFRE
  2. 20 KEY OFF
  3. 30 GOSUB 3740: CLS
  4. 40 REM *** TANITIM SAYFASI ***
  5. 45 LOCATE 1, 14: PRINT "*****************************************************"
  6. 50 LOCATE 2, 14: PRINT "* K Ü T Ü P H A N E   P R O G R A M I  Versiyon:1.1 *"
  7. 55 LOCATE 3, 14: PRINT "*****************************************************"
  8. 60 LOCATE 3, 13: PRINT "**BU PROGRAM ÿLE KÿTAP VE ÜYELERÿN KAYIT, KAYIT EKLEME, KAYITTA DEªÿ₧ÿKLÿK,     KAYIT SÿLME, KAYIT LÿSTELEMESÿNÿ YAPABÿLÿRSÿNÿZ..."
  9. 70 LOCATE 5, 13: PRINT "**KÿTAP KAYDI ÿÇÿN GENEL OLARAK BELÿRLENMÿ₧ KÜTÜPHANE KAYIT NUMARALARI ₧U       ₧EKÿLDEDÿR.LÜTFEN BU NUMARALARA GÖRE KAYIT YAPINIZ..."
  10. 75 LOCATE 7, 13: PRINT "**ÖNEMLÿ NOT: ÿLK KÿTAP KAYITLARINDAN SONRAKÿ KÿTAP KAYITLARINDA --KÿTAP KAYIT--YERÿNE --KÿTAP KAYDINA EKLEME-- ÿ₧LEMLERÿNÿ SEÇÿNÿZ.AKSÿ TAKTÿRDE ÿLK KAYITLARI-NIZ SÿLÿNÿR..."
  11. 80 LOCATE 11, 20: PRINT "KONU  "; SPC(12); "KAYIT NO"
  12. 90 LOCATE 12, 17: PRINT "************       ************"
  13. 100 LOCATE 13, 18: PRINT "GENEL                 0- 99  "
  14. 110 LOCATE 14, 18: PRINT "FELSEFE             100-199  "
  15. 120 LOCATE 15, 18: PRINT "DÿN                 200-299  "
  16. 130 LOCATE 16, 18: PRINT "TOPLUMSAL BÿL.      300-399  "
  17. 140 LOCATE 17, 18: PRINT "DÿLBÿLÿM            400-499  "
  18. 150 LOCATE 18, 18: PRINT "NAZARÿ BÿLÿMLER     500-599  "
  19. 160 LOCATE 19, 18: PRINT "TATBÿKÿ BÿLÿMLER    600-699  "
  20. 170 LOCATE 20, 18: PRINT "GÜZEL SANATLAR      700-799  "
  21. 180 LOCATE 21, 18: PRINT "EDEBÿYAT            800-899  "
  22. 190 LOCATE 22, 18: PRINT "TARÿH               900-999  "
  23. 200 LOCATE 22, 16: PRINT "ÖZGÜR ÖZBAY (C) 1995.BU BÿR SHAREWARE PROGRAMIDIR.LÜTFEN GEREªÿNÿ YAPINIZ."
  24. 210 LOCATE 24, 18: INPUT "ANA MENÜ ÿÇÿN LÜTFEN ENTER`A BASINIZ..."; TUS$
  25. 220 TUS$ = INKEY$
  26. 230 IF TUS$ = " " THEN 220
  27. 240 REM ***ANA MENÜ***
  28. 250 CLS : GOSUB 3890
  29. 260 LOCATE 2, 26: PRINT "***************************"
  30. 270 LOCATE 3, 26: PRINT "      A N A   M E N Ü      "
  31. 280 LOCATE 4, 26: PRINT "***************************"
  32. 290 LOCATE 6, 10: PRINT "1> KÿTAP KAYIT            "
  33. 300 LOCATE 8, 38: PRINT "2> KÿTAP KAYDINA EKLEME        "
  34. 310 LOCATE 10, 10: PRINT "3> KÿTAP KAYDINDA DEªÿ₧ÿKLÿK   "
  35. 320 LOCATE 12, 38: PRINT "4> KÿTAP KAYDININ SÿLÿNMESÿ    "
  36. 330 LOCATE 14, 10: PRINT "5> EKRANA LÿSTELEME            "
  37. 340 LOCATE 16, 38: PRINT "6> YAZICIYA LÿSTELEME            "
  38. 350 LOCATE 18, 10: PRINT "7> ÜYE MENÜSÜ                    "
  39. 360 LOCATE 20, 38: PRINT "8> PROGRAMDAN ÇIKI₧              "
  40. 370 LOCATE 22, 30: INPUT "SEÇÿMÿNÿZ (1-8) "; S
  41. 380 IF S < 1 OR S > 8 THEN 370
  42. 390 ON S GOSUB 440, 620, 890, 1260, 1510, 2480, 3510, 3700
  43. 400 LOCATE 24, 10: INPUT "MENÜYE DÖNMEK ÿÇÿN LÜTFEN ENTER`A BASINIZ..."; TUS$
  44. 410 TUS$ = INKEY$
  45. 420 IF TUS$ = " " THEN 410
  46. 430 GOTO 240
  47. 440 REM ***KÿTAP KAYIT***
  48. 450 OPEN "O", #1, "KÜTÜP.DAT"
  49. 460 CLS : GOSUB 3890
  50. 470 LOCATE 3, 10: INPUT "KÜTÜPHANE KAYIT NO:"; KKN
  51. 480 LOCATE 5, 10: INPUT "KÿTAP ADI.........:"; KA$: IF KA$ = "" THEN 480
  52. 490 LOCATE 7, 10: INPUT "YAZARI............:"; Y$: IF Y$ = "" THEN 490
  53. 500 LOCATE 9, 10: INPUT "TÜRÜ..............:"; KO$
  54. 510 LOCATE 11, 10: INPUT "BASIM TARÿHÿ......:"; BT$
  55. 520 LOCATE 13, 10: INPUT "BASIM EVÿ.........:"; BE$
  56. 530 LOCATE 15, 10: INPUT "FÿYATI............:"; F$
  57. 540 LOCATE 17, 10: INPUT "SAYFA SAYISI......:"; SS
  58. 550 LOCATE 21, 22: INPUT "YUKARIDAKÿ BÿLGÿLER DOªRU MU? (E/H)"; C$
  59. 560 IF C$ = "H" OR C$ = "h" THEN 460
  60. 570 WRITE #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  61. 580 LOCATE 23, 22: INPUT "BA₧KA KAYIT? (E/H)"; C$
  62. 590 IF C$ = "E" OR C$ = "e" THEN 460
  63. 600 CLOSE
  64. 610 RETURN
  65. 620 REM ***KÿTAP KAYDINA EKLEME***
  66. 630 CLS : GOSUB 3890
  67. 640 OPEN "I", #1, "KÜTÜP.DAT"
  68. 650 OPEN "O", #2, "EKLEME.DAT"
  69. 660 IF EOF(1) THEN 700
  70. 670 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  71. 680 WRITE #2, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  72. 690 GOTO 660
  73. 700 CLOSE #1
  74. 710 CLS : GOSUB 3890
  75. 720 LOCATE 3, 10: INPUT "KÜTÜPHANE KAYIT NO:"; KKN
  76. 730 LOCATE 5, 10: INPUT "KÿTAP ADI.........:"; KA$
  77. 740 LOCATE 7, 10: INPUT "YAZARI............:"; Y$
  78. 750 LOCATE 9, 10: INPUT "TÜRÜ..............:"; KO$
  79. 760 LOCATE 11, 10: INPUT "BASIM TARÿHÿ......:"; BT$
  80. 770 LOCATE 13, 10: INPUT "BASIM EVÿ.........:"; BE$
  81. 780 LOCATE 15, 10: INPUT "FÿYATI............:"; F$
  82. 790 LOCATE 17, 10: INPUT "SAYFA SAYISI......:"; SS
  83. 800 LOCATE 21, 22: INPUT "YUKARIDAKÿ BÿLGÿLER DOªRU MU? (E/H)"; C$
  84. 810 IF C$ = "H" OR C$ = "h" THEN 710
  85. 820 WRITE #2, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  86. 830 LOCATE 23, 22: INPUT "BA₧KA KAYIT? (E/H)"; C$
  87. 840 IF C$ = "E" OR C$ = "e" THEN 710
  88. 850 CLOSE #2
  89. 860 KILL "KÜTÜP.DAT"
  90. 870 NAME "EKLEME.DAT" AS "KÜTÜP.DAT"
  91. 880 RETURN
  92. 890 REM ***KÿTAP KAYDINDA DEªÿ₧ÿKLÿK***
  93. 900 CLS : GOSUB 3890
  94. 910 OPEN "I", #1, "KÜTÜP.DAT"
  95. 920 OPEN "O", #2, "DEªÿ₧.DAT"
  96. 930 LOCATE 4, 10: INPUT "DEªÿ₧TÿRECEªÿNÿZ KAYDIN KÜTÜPHANE KAYIT NOSU:"; DANK
  97. 940 IF EOF(1) THEN 1220
  98. 950 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  99. 960 IF DANK <> KKN THEN 940
  100. 970 CLS : LOCATE 1, 19: PRINT "**DEªÿ₧ÿKLÿK MENÜSÜ**"
  101. 980 LOCATE 3, 10: PRINT "1> KÜTÜPHANE KAYIT NO:"; KKN
  102. 990 LOCATE 5, 10: PRINT "2> KÿTAP ADI.........:"; KA$
  103. 1000 LOCATE 7, 10: PRINT "3> YAZARI............:"; Y$
  104. 1010 LOCATE 9, 10: PRINT "4> TÜRÜ..............:"; KO$
  105. 1020 LOCATE 11, 10: PRINT "5> BASIM TARÿHÿ......:"; BT$
  106. 1030 LOCATE 13, 10: PRINT "6> BASIM EVÿ.........:"; BE$
  107. 1040 LOCATE 15, 10: PRINT "7> FÿYATI............:"; F$
  108. 1050 LOCATE 17, 10: PRINT "8> SAYFA SAYISI......:"; SS
  109. 1060 LOCATE 21, 22: INPUT "BU KAYITTA MI DEªÿ₧ÿKLÿK YAPACAKSINIZ? (E/H)"; C$
  110. 1070 IF C$ = "H" OR C$ = "h" THEN 240
  111. 1080 LOCATE 23, 10: INPUT "SEÇÿMÿNÿZ (1-8)"; S
  112. 1090 IF S < 1 OR S > 8 THEN 1080
  113. 1100 ON S GOTO 1120, 1130, 1140, 1150, 1160, 1170, 1180, 1190
  114. 1110 GOTO 970
  115. 1120 LOCATE 3, 60: INPUT KKN: GOTO 1200
  116. 1130 LOCATE 5, 60: INPUT KA$: GOTO 1200
  117. 1140 LOCATE 7, 60: INPUT Y$: GOTO 1200
  118. 1150 LOCATE 9, 60: INPUT KO$: GOTO 1200
  119. 1160 LOCATE 11, 60: INPUT BT$: GOTO 1200
  120. 1170 LOCATE 13, 60: INPUT BE$: GOTO 1200
  121. 1180 LOCATE 15, 60: INPUT F$: GOTO 1200
  122. 1190 LOCATE 17, 60: INPUT SS: GOTO 1200
  123. 1200 WRITE #2, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  124. 1210 GOTO 940
  125. 1220 CLOSE #1, 2
  126. 1230 KILL "KÜTÜP.DAT"
  127. 1240 NAME "DEªÿ₧.DAT" AS "KÜTÜP.DAT"
  128. 1250 RETURN
  129. 1260 REM ***KÿTAP KAYDININ SÿLÿNMESÿ***
  130. 1270 CLS : GOSUB 3890
  131. 1280 OPEN "I", #1, "KÜTÜP.DAT"
  132. 1290 OPEN "O", #2, "SÿLME.DAT"
  133. 1300 CLS : GOSUB 3890: LOCATE 4, 10: INPUT "SÿLECEªÿNÿZ KAYDIN KÜTÜPHANE KAYIT NOSU:"; SKKN
  134. 1310 IF EOF(1) THEN 1470
  135. 1320 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  136. 1330 IF SKKN = KKN THEN 1340 ELSE 1310
  137. 1340 CLS
  138. 1350 LOCATE 3, 10: PRINT "KÜTÜPHANE KAYIT NO:"; KKN
  139. 1360 LOCATE 5, 10: PRINT "KÿTAP ADI.........:"; KA$
  140. 1370 LOCATE 7, 10: PRINT "YAZARI............:"; Y$
  141. 1380 LOCATE 9, 10: PRINT "TÜRÜ..............:"; KO$
  142. 1390 LOCATE 11, 10: PRINT "BASIM TARÿHÿ......:"; BT$
  143. 1400 LOCATE 13, 10: PRINT "BASIM EVÿ.........:"; BE$
  144. 1410 LOCATE 15, 10: PRINT "FÿYATI............:"; F$
  145. 1420 LOCATE 17, 10: PRINT "SAYFA SAYISI......:"; SS
  146. 1430 LOCATE 21, 22: INPUT "SÿLMEK ÿSTEDÿªÿNÿZ KAYIT BU MU? (E/H)"; C$
  147. 1440 IF C$ = "E" OR C$ = "e" THEN 1310 ELSE CLOSE : GOTO 240
  148. 1460 GOTO 1310
  149. 1470 CLOSE #1, 2
  150. 1480 KILL "KÜTÜP.DAT"
  151. 1490 NAME "SÿLME.DAT" AS "KÜTÜP.DAT"
  152. 1500 RETURN
  153. 1510 REM ***EKRANA LÿSTELEME***
  154. 1520 CLS : GOSUB 3890
  155. 1530 LOCATE 6, 30: PRINT "***EKRANA LÿSTELEME***"
  156. 1540 LOCATE 10, 10: PRINT "1> TEK TEK LÿSTELEME(KAYIT ARAMA)"
  157. 1550 LOCATE 12, 10: PRINT "2> TÜM LÿSTE        "
  158. 1560 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧     "
  159. 1570 LOCATE 16, 15: INPUT "SEÇÿMÿNÿZ (1-3)"; S
  160. 1580 IF S < 1 OR S > 3 THEN 1570
  161. 1590 ON S GOSUB 1610, 2300, 240
  162. 1600 GOTO 1510
  163. 1610 REM ***TEK TEK LÿSTELEME***
  164. 1620 CLS : GOSUB 3890: LOCATE 6, 30: PRINT "***TEK TEK LÿSTEME***"
  165. 1630 LOCATE 10, 10: PRINT "1> KÜTÜPHANE KAYIT NOSUNA GÖRE"
  166. 1640 LOCATE 12, 10: PRINT "2> KÿTAP ADINA GÖRE"
  167. 1650 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧"
  168. 1660 LOCATE 16, 10: INPUT "SEÇÿMÿNÿZ (1-3)"; S
  169. 1670 IF S < 1 OR S > 3 THEN 1660
  170. 1680 ON S GOSUB 1700, 2000, 240
  171. 1690 GOTO 1610
  172. 1700 REM ***KKN`YE GÖRE ARAMA***
  173. 1710 CLS : GOSUB 3890
  174. 1720 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  175. 1730 LOCATE 5, 10: INPUT "LÜTFEN KÜTÜPHANE KAYIT NUMARASINI GÿRÿNÿZ:"; DKKN
  176. 1740 OPEN "I", #1, "KÜTÜP.DAT"
  177. 1750 IF EOF(1) THEN 1950
  178. 1760 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  179. 1770 IF DKKN = KKN THEN 1780 ELSE 1750
  180. 1780 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  181. 1790 LOCATE 15, 30: PRINT "BÿR TU₧A BASINIZ..."
  182. 1800 T$ = INKEY$
  183. 1810 IF T$ = "" THEN 1800
  184. 1820 CLS
  185. 1830 LOCATE 4, 10: PRINT "KAYIT HAKKINDA BÿLGÿLER"
  186. 1840 LOCATE 5, 10: PRINT "***********************"
  187. 1850 LOCATE 4, 50: PRINT "KÜTÜPHANE"
  188. 1860 LOCATE 5, 50: PRINT "*********"
  189. 1870 LOCATE 6, 10: PRINT "KÜTÜPHANE KAYIT NO:"; KKN
  190. 1880 LOCATE 8, 10: PRINT "KÿTAP ADI.........:"; KA$
  191. 1890 LOCATE 10, 10: PRINT "YAZARI............:"; Y$
  192. 1900 LOCATE 12, 10: PRINT "TÜRÜ..............:"; KO$
  193. 1910 LOCATE 14, 10: PRINT "BASIM TARÿHÿ......:"; BT$
  194. 1920 LOCATE 16, 10: PRINT "BASIM EVÿ.........:"; BE$
  195. 1930 LOCATE 18, 10: PRINT "FÿYATI............:"; F$
  196. 1940 LOCATE 20, 10: PRINT "SAYFA SAYISI......:"; SS
  197. 1950 CLOSE #1
  198. 1960 LOCATE 23, 30: PRINT "BÿR TU₧A BASINIZ..."
  199. 1970 T$ = INKEY$
  200. 1980 IF T$ = "" THEN 1970
  201. 1990 RETURN
  202. 2000 REM ***K.ADINA GÖRE ARAMA***
  203. 2010 CLS : GOSUB 3890
  204. 2020 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  205. 2030 LOCATE 5, 10: INPUT "LÜTFEN KÿTAP ADINI GÿRÿNÿZ:"; DKA$
  206. 2040 OPEN "I", #1, "KÜTÜP.DAT"
  207. 2050 IF EOF(1) THEN 2250
  208. 2060 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  209. 2070 IF DKA$ = KA$ THEN 2080 ELSE 2050
  210. 2080 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  211. 2090 LOCATE 15, 30: PRINT "BÿR TU₧A BASINIZ..."
  212. 2100 T$ = INKEY$
  213. 2110 IF T$ = "" THEN 2100
  214. 2120 CLS
  215. 2130 LOCATE 4, 10: PRINT "KAYIT HAKKINDA BÿLGÿLER"
  216. 2140 LOCATE 5, 10: PRINT "***********************"
  217. 2150 LOCATE 4, 50: PRINT "KÜTÜPHANE"
  218. 2160 LOCATE 5, 48: PRINT "*********"
  219. 2170 LOCATE 6, 10: PRINT "KÜTÜPHANE KAYIT NO:"; KKN
  220. 2180 LOCATE 8, 10: PRINT "KÿTAP ADI.........:"; KA$
  221. 2190 LOCATE 10, 10: PRINT "YAZARI............:"; Y$
  222. 2200 LOCATE 12, 10: PRINT "TÜRÜ..............:"; KO$
  223. 2210 LOCATE 14, 10: PRINT "BASIM TARÿHÿ......:"; BT$
  224. 2220 LOCATE 16, 10: PRINT "BASIM EVÿ.........:"; BE$
  225. 2230 LOCATE 18, 10: PRINT "FÿYATI............:"; F$
  226. 2240 LOCATE 20, 10: PRINT "SAYFA SAYISI......:"; SS
  227. 2250 CLOSE #1
  228. 2260 LOCATE 23, 30: PRINT "BÿR TU₧A BASINIZ..."
  229. 2270 T$ = INKEY$
  230. 2280 IF T$ = "" THEN 2270
  231. 2290 RETURN
  232. 2300 REM ***TÜM LÿSTE***
  233. 2310 CLS
  234. 2320 LOCATE 4, 10: PRINT "KÜTÜPHANE KÿTAP KAYITLARI"
  235. 2330 LOCATE 5, 10: PRINT "*************************"
  236. 2331 LOCATE 6, 1: PRINT STRING$(80, "*")
  237. 2332 LOCATE 7, 1: PRINT TAB(5); "KÜTÜPHANE KAYIT NO"; TAB(25); "KÿTAP ADI"; TAB(55); "YAZARI"; TAB(75);
  238. 2333 LOCATE 8, 1: PRINT STRING$(80, "-")
  239. 2340 OPEN "I", #1, "KÜTÜP.DAT"
  240. 2345 S = 0
  241. 2350 IF EOF(1) THEN 2430
  242. 2360 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  243. 2400 PRINT TAB(5); KKN; TAB(25); KA$; TAB(55); Y$; TAB(75);
  244. 2410 PRINT STRING$(80, "*")
  245. 2415 S = S + 1
  246. 2416 IF S > 4 THEN GOTO 50000
  247. 2420 GOTO 2350
  248. 2430 CLOSE #1
  249. 2440 LOCATE 23, 27: PRINT "LÜTFEN BÿR TUSA BASINIZ..."
  250. 2450 T$ = INKEY$
  251. 2460 IF T$ = "" THEN 2450
  252. 2470 RETURN
  253. 2480 REM ***YAZICIYA LÿSTELEME***
  254. 2490 CLS : GOSUB 3890
  255. 2500 LOCATE 6, 29: PRINT "***YAZICIYA LÿSTELEME***"
  256. 2510 LOCATE 10, 10: PRINT "1> TEK TEK LÿSTELEME(KAYIT ARAMA)"
  257. 2520 LOCATE 12, 10: PRINT "2> TÜM LÿSTE        "
  258. 2530 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧     "
  259. 2540 LOCATE 16, 15: INPUT "SEÇÿMÿNÿZ (1-3)"; S
  260. 2550 IF S < 1 OR S > 3 THEN 2540
  261. 2560 ON S GOSUB 2580, 3330, 240
  262. 2570 GOTO 2480
  263. 2580 REM ***TEK TEK LÿSTELEME***
  264. 2590 CLS : GOSUB 3890: LOCATE 6, 30: PRINT "***TEK TEK LÿSTEME***"
  265. 2600 LOCATE 10, 10: PRINT "1> KÜTÜPHANE KAYIT NOSUNA GÖRE"
  266. 2610 LOCATE 12, 10: PRINT "2> KÿTAP ADINA GÖRE"
  267. 2620 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧"
  268. 2630 LOCATE 16, 10: INPUT "SEÇÿMÿNÿZ (1-3)"; C
  269. 2640 IF C < 1 OR C > 3 THEN 2630
  270. 2650 ON C GOSUB 2670, 3000, 240
  271. 2660 GOTO 2580
  272. 2670 REM ***KKN`YE GÖRE ARAMA***
  273. 2680 CLS : GOSUB 3890
  274. 2690 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  275. 2700 '-
  276. 2710 OPEN "I", #1, "KÜTÜP.DAT"
  277. 2720 IF EOF(1) THEN 2980
  278. 2725 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  279. 2730 IF DKKN = KKN THEN 2740 ELSE 2710
  280. 2740 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  281. 2750 LOCATE 15, 30: PRINT "BÿR TU₧A BASINIZ..."
  282. 2760 T$ = INKEY$
  283. 2770 IF T$ = "" THEN 2760
  284. 2780 CLS
  285. 2790 LOCATE 4, 10: LPRINT "KAYIT HAKKINDA BÿLGÿLER"
  286. 2800 LOCATE 5, 10: LPRINT "***********************"
  287. 2810 LOCATE 4, 50: LPRINT "KÜTÜPHANE"
  288. 2820 LOCATE 5, 48: LPRINT "*********"
  289. 2830 LOCATE 6, 10: LPRINT "KÜTÜPHANE KAYIT NO:"; KKN
  290. 2840 LPRINT
  291. 2850 LOCATE 8, 10: LPRINT "KÿTAP ADI.........:"; KA$
  292. 2860 LPRINT
  293. 2870 LOCATE 10, 10: LPRINT "YAZARI............:"; Y$
  294. 2880 LPRINT
  295. 2890 LOCATE 12, 10: LPRINT "TÜRÜ..............:"; KO$
  296. 2900 LPRINT
  297. 2910 LOCATE 14, 10: LPRINT "BASIM TARÿHÿ......:"; BT$
  298. 2920 LPRINT
  299. 2930 LOCATE 16, 10: LPRINT "BASIM EVÿ.........:"; BE$
  300. 2940 LPRINT
  301. 2950 LOCATE 18, 10: LPRINT "FÿYATI............:"; F$
  302. 2960 LPRINT
  303. 2970 LOCATE 20, 10: LPRINT "SAYFA SAYISI......:"; SS
  304. 2980 CLOSE #1
  305. 2990 RETURN
  306. 3000 REM ***K.ADINA GÖRE ARAMA***
  307. 3010 CLS : GOSUB 3890
  308. 3020 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  309. 3025 LOCATE 5, 10: INPUT "LÜTFEN KÿTAP ADINI GÿRÿNÿZ:"; DKA$
  310. 3030 OPEN "I", #1, "KÜTÜP.DAT"
  311. 3040 IF EOF(1) THEN 3310
  312. 3050 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  313. 3060 IF DKA$ = KA$ THEN 3070 ELSE 3040
  314. 3070 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  315. 3080 LOCATE 15, 30: PRINT "YAZICIYA KAªIT TAKIN VE BÿR TU₧A BASINIZ..."
  316. 3090 T$ = INKEY$
  317. 3100 IF T$ = "" THEN 3090
  318. 3110 CLS
  319. 3120 LOCATE 4, 10: LPRINT "KAYIT HAKKINDA BÿLGÿLER"
  320. 3130 LOCATE 5, 10: LPRINT "***********************"
  321. 3140 LOCATE 4, 50: LPRINT "KÜTÜPHANE"
  322. 3150 LOCATE 5, 48: LPRINT "*********"
  323. 3160 LOCATE 6, 10: LPRINT "KÜTÜPHANE KAYIT NO:"; KKN
  324. 3170 LPRINT
  325. 3180 LOCATE 8, 10: LPRINT "KÿTAP ADI.........:"; KA$
  326. 3190 LPRINT
  327. 3200 LOCATE 10, 10: LPRINT "YAZARI............:"; Y$
  328. 3210 LPRINT
  329. 3220 LOCATE 12, 10: LPRINT "TÜRÜ..............:"; KO$
  330. 3230 LPRINT
  331. 3240 LOCATE 14, 10: LPRINT "BASIM TARÿHÿ......:"; BT$
  332. 3250 LPRINT
  333. 3260 LOCATE 16, 10: LPRINT "BASIM EVÿ.........:"; BE$
  334. 3270 LPRINT
  335. 3280 LOCATE 18, 10: LPRINT "FÿYATI............:"; F$
  336. 3290 LPRINT
  337. 3300 LOCATE 20, 10: LPRINT "SAYFA SAYISI......:"; SS
  338. 3310 CLOSE #1
  339. 3320 RETURN
  340. 3330 REM ***TÜM LÿSTE***
  341. 3340 CLS
  342. 3350 LOCATE 4, 10: LPRINT "KÜTÜPHANE KÿTAP KAYITLARI"
  343. 3360 LOCATE 5, 10: LPRINT "*************************"
  344. 3361 LPRINT STRING$(80, "*")
  345. 3362 LPRINT TAB(5); "KÜTÜPHANE KAYIT NO"; TAB(25); "KÿTAP ADI"; TAB(55); "YAZARI"; TAB(75);
  346. 3363 LPRINT STRING$(80, "-")
  347. 3370 OPEN "I", #1, "KÜTÜP.DAT"
  348. 3380 IF EOF(1) THEN 3460
  349. 3390 INPUT #1, KKN, KA$, Y$, KO$, BT$, BE$, F$, SS
  350. 3430 LPRINT TAB(5); KKN; TAB(25); KA$; TAB(55); Y$; TAB(75);
  351. 3440 LPRINT STRING$(80, "*")
  352. 3450 GOTO 3380
  353. 3460 CLOSE #1
  354. 3470 LOCATE 23, 27: PRINT "LÜTFEN BÿR TUSA BASINIZ..."
  355. 3480 T$ = INKEY$
  356. 3490 IF T$ = "" THEN 3480
  357. 3500 RETURN
  358. 3510 REM ***ÜYE BÿLGÿLERÿ***
  359. 3520 CLS : GOSUB 3890
  360. 3530 LOCATE 2, 23: PRINT "*******************************"
  361. 3540 LOCATE 3, 23: PRINT "   Ü Y E L ÿ K   M E N Ü S Ü   "
  362. 3550 LOCATE 4, 23: PRINT "*******************************"
  363. 3560 LOCATE 6, 10: PRINT "1> ÜYE KAYIT            "
  364. 3570 LOCATE 8, 38: PRINT "2> ÜYE KAYDINA EKLEME        "
  365. 3580 LOCATE 10, 10: PRINT "3> ÜYE KAYDINDA DEªÿ₧ÿKLÿK   "
  366. 3590 LOCATE 12, 38: PRINT "4> ÜYE KAYDININ SÿLÿNMESÿ    "
  367. 3600 LOCATE 14, 10: PRINT "5> EKRANA LÿSTELEME            "
  368. 3610 LOCATE 16, 38: PRINT "6> YAZICIYA LÿSTELEME            "
  369. 3620 LOCATE 18, 10: PRINT "7> MENÜYE DÖNÜ₧                "
  370. 3630 LOCATE 22, 30: INPUT "SEÇÿMÿNÿZ (1-7) "; S
  371. 3640 IF S < 1 OR S > 7 THEN 3630
  372. 3650 ON S GOSUB 3980, 4160, 4420, 4790, 5040, 6000, 240
  373. 3660 LOCATE 24, 10: INPUT "MENÜYE DÖNMEK ÿÇÿN LÜTFEN ENTER`A BASINIZ..."; TUS$
  374. 3670 TUS$ = INKEY$
  375. 3680 IF TUS$ = " " THEN 3670
  376. 3690 GOTO 3510
  377. 3700 REM*****ÇIKI₧*****
  378. 3710 CLS : LOCATE 12, 27: INPUT "***EMÿN MÿSÿN? (E/H)***"; C$
  379. 3720 IF C$ = "H" OR C$ = "h" THEN GOTO 240
  380. 3725 LOCATE 16, 10: PRINT "EªER BU PROGRAMI KULLANIYORSANIZ, LÜTFEN BÿZÿ TE₧VÿK ÿÇÿN A₧AªIDAKÿ ADRESE      10$ GÖNDERÿNÿZ:"
  381. 3726 LOCATE 19, 1: PRINT "ÖZBAY SOFTWARE Demetgül mah.7.sokak No:39/9 06200 Demetevler/Ankara"
  382. 3730 END
  383. 3740 REM ***SÿFRE PRG.***
  384. 3750 CLS
  385. 3760 LOCATE 9, 10: PRINT CHR$(218); STRING$(30, CHR$(196)); CHR$(191)
  386. 3770 LOCATE 10, 10: PRINT CHR$(179); TAB(41); CHR$(179)
  387. 3780 LOCATE 11, 10: PRINT CHR$(179); TAB(41); CHR$(179)
  388. 3790 LOCATE 12, 10: PRINT CHR$(179); TAB(41); CHR$(179)
  389. 3800 LOCATE 13, 10: PRINT CHR$(179); TAB(41); CHR$(179)
  390. 3810 LOCATE 14, 10: PRINT CHR$(192); STRING$(30, CHR$(196)); CHR$(217)
  391. 3820 LOCATE 11, 15: COLOR 7: PRINT "₧ÿFRE:"
  392. 3830 OZGUR$ = INPUT$(5)
  393. 3840 IF OZGUR$ = "ÖZBAY" OR OZGUR$ = "özbay" THEN CLS : RETURN
  394. 3850 LOCATE 18, 15: PRINT "ÜZGÜNÜM ₧ÿFREYÿ BÿLEMEDÿNÿZ..."
  395. 3860 LOCATE 18, 15: PRINT "PROGRAMA GÿRMEYE HAK KAZANAMADINIZ..."
  396. 3870 LOCATE 19, 15: PRINT "TEKRAR DENEYÿNÿZ.."
  397. 3875 FOR I = 1 TO 34000!: NEXT I
  398. 3880 GOTO 3740
  399. 3890 REM***ÇERÇEVE PRG.***
  400. 3900 PRINT CHR$(201); STRING$(74, 205); CHR$(187)
  401. 3910 FOR I = 2 TO 22
  402. 3920 LOCATE I, 1: PRINT CHR$(186); TAB(76); CHR$(186)
  403. 3930 NEXT I
  404. 3940 LOCATE 22, 1: PRINT CHR$(200); STRING$(74, 205); CHR$(188)
  405. 3950 RETURN
  406. 3960 PRINT "PROGRAM BÿTTÿ....."
  407. 3970 END
  408. 3980 REM ***ÜYE KAYIT***
  409. 3990 OPEN "O", #1, "ÜYE.DAT"
  410. 4000 CLS : GOSUB 3890
  411. 4010 LOCATE 3, 10: INPUT "ÜYE KAYIT NO......:"; UKN
  412. 4020 LOCATE 5, 10: INPUT "ÜYE AD SOYADI.....:"; UA$
  413. 4030 LOCATE 7, 10: INPUT "ADRESÿ............:"; A$
  414. 4040 LOCATE 9, 10: INPUT "TELEFONU..........:"; TEL
  415. 4050 LOCATE 11, 10: INPUT "KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  416. 4060 LOCATE 13, 10: INPUT "KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  417. 4070 LOCATE 15, 10: INPUT "KÿTAP KÜT.KAYIT NO:"; KKN
  418. 4080 LOCATE 17, 10: INPUT "KÿTAP ADI.........:"; KA$
  419. 4090 LOCATE 21, 22: INPUT "YUKARIDAKÿ BÿLGÿLER DOªRU MU? (E/H)"; C$
  420. 4100 IF C$ = "H" OR C$ = "h" THEN 4000
  421. 4110 WRITE #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  422. 4120 LOCATE 23, 22: INPUT "BA₧KA KAYIT? (E/H)"; C$
  423. 4130 IF C$ = "E" OR C$ = "e" THEN 4000
  424. 4140 CLOSE #1
  425. 4150 RETURN
  426. 4160 REM ***ÜYE KAYDINA EKLEME***
  427. 4170 CLS : GOSUB 3890
  428. 4180 OPEN "I", #1, "ÜYE.DAT"
  429. 4190 OPEN "O", #2, "EKLEME.DAT"
  430. 4200 IF EOF(1) THEN 4240
  431. 4210 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  432. 4220 WRITE #2, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  433. 4230 GOTO 4200
  434. 4240 CLOSE #1
  435. 4245 CLS : GOSUB 3890
  436. 4250 LOCATE 3, 10: INPUT "ÜYE KAYIT NO......:"; UKN
  437. 4260 LOCATE 5, 10: INPUT "ÜYE ADI SOYADI....:"; UA$
  438. 4270 LOCATE 7, 10: INPUT "ADRESÿ............:"; A$
  439. 4280 LOCATE 9, 10: INPUT "TELEFONU..........:"; TEL
  440. 4290 LOCATE 11, 10: INPUT "KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  441. 4300 LOCATE 13, 10: INPUT "KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  442. 4310 LOCATE 15, 10: INPUT "KÿTAP KÜT.KAYIT NO:"; KKN
  443. 4320 LOCATE 17, 10: INPUT "KÿTAP ADI.........:"; KA$
  444. 4330 LOCATE 21, 22: INPUT "YUKARIDAKÿ BÿLGÿLER DOªRU MU? (E/H)"; C$
  445. 4340 IF C$ = "H" OR C$ = "h" THEN 4250
  446. 4350 WRITE #2, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  447. 4360 LOCATE 23, 22: INPUT "BA₧KA KAYIT? (E/H)"; C$
  448. 4370 IF C$ = "E" OR C$ = "e" THEN 4250
  449. 4380 CLOSE #2
  450. 4390 KILL "ÜYE.DAT"
  451. 4400 NAME "EKLEME.DAT" AS "ÜYE.DAT"
  452. 4410 RETURN
  453. 4420 REM ***ÜYE KAYDINDA DEªÿ₧ÿKLÿK***
  454. 4430 CLS : GOSUB 3890
  455. 4440 OPEN "I", #1, "ÜYE.DAT"
  456. 4450 OPEN "O", #2, "DEªÿ₧.DAT"
  457. 4460 LOCATE 4, 10: INPUT "DEªÿ₧TÿRECEªÿNÿZ KAYDIN ÜYE KAYIT NOSU:"; DUKN
  458. 4470 IF EOF(1) THEN 4750
  459. 4480 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  460. 4490 IF DUKN = UKN THEN 4500 ELSE 4470
  461. 4500 CLS : LOCATE 1, 19: PRINT "**DEªÿ₧ÿKLÿK MENÜSÜ**"
  462. 4510 LOCATE 3, 10: PRINT "1> ÜYE KAYIT NO......."; UKN
  463. 4520 LOCATE 5, 10: PRINT "2> ÜYE ADI SOYADI....:"; UA$
  464. 4530 LOCATE 7, 10: PRINT "3> ADRESÿ............:"; A$
  465. 4540 LOCATE 9, 10: PRINT "4> TELEFONU..........:"; TEL
  466. 4550 LOCATE 11, 10: PRINT "5> KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  467. 4560 LOCATE 13, 10: PRINT "6> KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  468. 4570 LOCATE 15, 10: PRINT "7> KÿTAP KÜT.KAYIT NO:"; KKN
  469. 4580 LOCATE 17, 10: PRINT "8> KÿTAP ADI.........:"; KA$
  470. 4590 LOCATE 21, 22: INPUT "BU KAYITTA MI DEªÿ₧ÿKLÿK YAPACAKSINIZ? (E/H)"; C$
  471. 4600 IF C$ = "H" OR C$ = "h" THEN CLOSE : GOTO 3510
  472. 4610 LOCATE 23, 10: INPUT "SEÇÿMÿNÿZ (1-8)"; S
  473. 4620 IF S < 1 OR S > 8 THEN 4610
  474. 4630 ON S GOTO 4650, 4660, 4670, 4680, 4690, 4700, 4710, 4720
  475. 4640 GOTO 4500
  476. 4650 LOCATE 3, 60: INPUT UKN: GOTO 4730
  477. 4660 LOCATE 5, 60: INPUT UA$: GOTO 4730
  478. 4670 LOCATE 7, 60: INPUT A$: GOTO 4730
  479. 4680 LOCATE 9, 60: INPUT TEL: GOTO 4730
  480. 4690 LOCATE 11, 60: INPUT KVT$: GOTO 4730
  481. 4700 LOCATE 13, 60: INPUT KAT$: GOTO 4730
  482. 4710 LOCATE 15, 60: INPUT KKN: GOTO 4730
  483. 4720 LOCATE 17, 60: INPUT KA$: GOTO 4730
  484. 4730 WRITE #2, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  485. 4740 GOTO 4470
  486. 4750 CLOSE
  487. 4760 KILL "ÜYE.DAT"
  488. 4770 NAME "DEªÿ₧.DAT" AS "ÜYE.DAT"
  489. 4780 RETURN
  490. 4790 REM ***ÜYE KAYDININ SÿLÿNMESÿ***
  491. 4800 CLS : GOSUB 3890
  492. 4810 OPEN "I", #1, "ÜYE.DAT"
  493. 4820 OPEN "O", #2, "SÿLME.DAT"
  494. 4830 CLS : GOSUB 3890: LOCATE 4, 10: INPUT "SÿLECEªÿNÿZ KAYDIN ÜYE KAYIT NOSU:"; SUKN
  495. 4840 IF EOF(1) THEN 5000
  496. 4850 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  497. 4860 IF SUKN = UKN THEN 4870 ELSE 4980
  498. 4870 CLS : GOSUB 3890
  499. 4880 LOCATE 3, 10: PRINT "ÜYE KAYIT NO......:"; UKN
  500. 4890 LOCATE 5, 10: PRINT "ÜYE ADI SOYADI....:"; UA$
  501. 4900 LOCATE 7, 10: PRINT "ADRESÿ............:"; A$
  502. 4910 LOCATE 9, 10: PRINT "TELEFONU..........:"; TEL
  503. 4920 LOCATE 11, 10: PRINT "KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  504. 4930 LOCATE 13, 10: PRINT "KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  505. 4940 LOCATE 15, 10: PRINT "KÿTAP KÜT.KAYIT NO:"; KKN
  506. 4950 LOCATE 17, 10: PRINT "KÿTAP ADI.........:"; KA$
  507. 4960 LOCATE 21, 22: INPUT "SÿLMEK ÿSTEDÿªÿNÿZ KAYIT BU MU? (E/H)"; C$
  508. 4970 IF C$ = "E" OR C$ = "e" THEN 4840 ELSE CLOSE : GOTO 3510
  509. 4980 WRITE #2, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  510. 4990 GOTO 4840
  511. 5000 CLOSE #1, 2
  512. 5010 KILL "ÜYE.DAT"
  513. 5020 NAME "SÿLME.DAT" AS "ÜYE.DAT"
  514. 5030 RETURN
  515. 5040 REM ***EKRANA LÿSTELEME***
  516. 5050 CLS : GOSUB 3890
  517. 5060 LOCATE 6, 30: PRINT "***EKRANA LÿSTELEME***"
  518. 5070 LOCATE 10, 10: PRINT "1> TEK TEK LÿSTELEME(KAYIT ARAMA)"
  519. 5080 LOCATE 12, 10: PRINT "2> TÜM LÿSTE        "
  520. 5090 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧     "
  521. 5100 LOCATE 16, 15: INPUT "SEÇÿMÿNÿZ (1-3)"; C
  522. 5110 IF C < 1 OR C > 3 THEN 5100
  523. 5115 ON C GOSUB 5130, 5820, 3510
  524. 5120 GOTO 5040
  525. 5130 REM ***TEK TEK LÿSTELEME***
  526. 5140 CLS : GOSUB 3890: LOCATE 6, 30: PRINT "***TEK TEK LÿSTEME***"
  527. 5150 LOCATE 10, 10: PRINT "1> ÜYE KAYIT NOSUNA GÖRE"
  528. 5160 LOCATE 12, 10: PRINT "2> ÜYE AD SOYADINA GÖRE"
  529. 5170 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧"
  530. 5180 LOCATE 16, 10: INPUT "SEÇÿMÿNÿZ (1-3)"; C
  531. 5190 IF C < 1 OR C > 3 THEN 5180
  532. 5200 ON C GOSUB 5220, 5520, 3510
  533. 5210 GOTO 5130
  534. 5220 REM ***UKN`YE GÖRE ARAMA***
  535. 5230 CLS : GOSUB 3890
  536. 5240 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  537. 5250 LOCATE 5, 10: INPUT "LÜTFEN ÜYE KAYIT NUMARASINI GÿRÿNÿZ:"; DUKN
  538. 5260 OPEN "I", #1, "ÜYE.DAT"
  539. 5270 IF EOF(1) THEN 5470
  540. 5280 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  541. 5290 IF DUKN = UKN THEN 5300 ELSE 5270
  542. 5300 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  543. 5310 LOCATE 15, 30: PRINT "BÿR TU₧A BASINIZ..."
  544. 5320 T$ = INKEY$
  545. 5330 IF T$ = "" THEN 5320
  546. 5340 CLS
  547. 5350 LOCATE 4, 10: PRINT "KAYIT HAKKINDA BÿLGÿLER"
  548. 5360 LOCATE 5, 10: PRINT "***********************"
  549. 5370 LOCATE 4, 50: PRINT "KÜTÜPHANE"
  550. 5380 LOCATE 5, 48: PRINT "*********"
  551. 5390 LOCATE 6, 10: PRINT "ÜYE KAYIT NO......:"; UKN
  552. 5400 LOCATE 8, 10: PRINT "ÜYE ADI SOYADI....:"; UA$
  553. 5410 LOCATE 10, 10: PRINT "ADRESÿ............:"; A$
  554. 5420 LOCATE 12, 10: PRINT "TELEFON...........:"; TEL
  555. 5430 LOCATE 14, 10: PRINT "KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  556. 5440 LOCATE 16, 10: PRINT "KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  557. 5450 LOCATE 18, 10: PRINT "KÿTAP KÜT.KAYIT NO:"; KKN
  558. 5460 LOCATE 20, 10: PRINT "KÿTAP ADI.........:"; KA$
  559. 5470 CLOSE #1
  560. 5480 LOCATE 23, 30: PRINT "BÿR TU₧A BASINIZ..."
  561. 5490 T$ = INKEY$
  562. 5500 IF T$ = "" THEN 5490
  563. 5510 RETURN
  564. 5520 REM ***UA$`YE GÖRE ARAMA***
  565. 5530 CLS : GOSUB 3890
  566. 5540 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  567. 5550 LOCATE 5, 10: INPUT "LÜTFEN ÜYE ADI VE SOYADINI GÿRÿNÿZ:"; DUA$
  568. 5560 OPEN "I", #1, "ÜYE.DAT"
  569. 5570 IF EOF(1) THEN 5770
  570. 5580 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  571. 5590 IF DUA$ = UA$ THEN 5600 ELSE 5570
  572. 5600 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  573. 5610 LOCATE 15, 30: PRINT "BÿR TU₧A BASINIZ..."
  574. 5620 T$ = INKEY$
  575. 5630 IF T$ = "" THEN 5620
  576. 5640 CLS
  577. 5650 LOCATE 4, 10: PRINT "KAYIT HAKKINDA BÿLGÿLER"
  578. 5660 LOCATE 5, 10: PRINT "***********************"
  579. 5670 LOCATE 4, 50: PRINT "KÜTÜPHANE"
  580. 5680 LOCATE 5, 48: PRINT "*********"
  581. 5690 LOCATE 6, 10: PRINT "ÜYE KAYIT NO......:"; UKN
  582. 5700 LOCATE 8, 10: PRINT "ÜYE ADI SOYADI....:"; UA$
  583. 5710 LOCATE 10, 10: PRINT "ADRESÿ............:"; A$
  584. 5720 LOCATE 12, 10: PRINT "TELEFON...........:"; TEL
  585. 5730 LOCATE 14, 10: PRINT "KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  586. 5740 LOCATE 16, 10: PRINT "KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  587. 5750 LOCATE 18, 10: PRINT "KÿTAP KÜT.KAYIT NO:"; KKN
  588. 5760 LOCATE 20, 10: PRINT "KÿTAP ADI.........:"; KA$
  589. 5770 CLOSE #1
  590. 5780 LOCATE 23, 30: PRINT "BÿR TU₧A BASINIZ..."
  591. 5790 T$ = INKEY$
  592. 5800 IF T$ = "" THEN 5790
  593. 5810 RETURN
  594. 5820 REM ***TÜM LÿSTE***
  595. 5830 CLS
  596. 5840 LOCATE 4, 10: PRINT "ÜYE BÿLGÿ KAYITLARI"
  597. 5850 LOCATE 5, 10: PRINT "*******************"
  598. 5851 PRINT STRING$(80, "*")
  599. 5852 PRINT TAB(5); "ÜYE KAYIT NO"; TAB(30); "ÜYE ADI SOYADI"; TAB(55); "TELEFON"; TAB(75);
  600. 5853 PRINT STRING$(80, "-")
  601. 5860 OPEN "I", #1, "ÜYE.DAT"
  602. 5865 S = 0
  603. 5870 IF EOF(1) THEN 5950
  604. 5880 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  605. 5920 PRINT TAB(5); UKN; TAB(30); UA$; TAB(55); TEL; TAB(75);
  606. 5930 PRINT STRING$(80, "*")
  607. 5935 S = S + 1
  608. 5936 IF S > 4 THEN GOTO 60000
  609. 5940 GOTO 5870
  610. 5950 CLOSE #1
  611. 5960 LOCATE 23, 27: PRINT "LÜTFEN BÿR TUSA BASINIZ..."
  612. 5970 T$ = INKEY$
  613. 5980 IF T$ = "" THEN 5970
  614. 5990 RETURN
  615. 6000 REM ***YAZICIYA LÿSTELEME***
  616. 6010 CLS : GOSUB 3890
  617. 6020 LOCATE 6, 29: PRINT "***YAZICIYA LÿSTELEME***"
  618. 6030 LOCATE 10, 10: PRINT "1> TEK TEK LÿSTELEME(KAYIT ARAMA)"
  619. 6040 LOCATE 12, 10: PRINT "2> TÜM LÿSTE        "
  620. 6050 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧     "
  621. 6060 LOCATE 16, 15: INPUT "SEÇÿMÿNÿZ (1-3)"; C
  622. 6070 IF C < 1 OR C > 3 THEN 6060
  623. 6080 ON C GOSUB 6100, 6850, 3510
  624. 6090 GOTO 6000
  625. 6100 REM ***TEK TEK LÿSTELEME***
  626. 6110 CLS : GOSUB 3890: LOCATE 6, 30: PRINT "***TEK TEK LÿSTEME***"
  627. 6120 LOCATE 10, 10: PRINT "1> ÜYE KAYIT NOSUNA GÖRE"
  628. 6130 LOCATE 12, 10: PRINT "2> ÜYE ADINA GÖRE"
  629. 6140 LOCATE 14, 10: PRINT "3> MENÜYE DÖNÜ₧"
  630. 6150 LOCATE 16, 10: INPUT "SEÇÿMÿNÿZ (1-3)"; C
  631. 6160 IF C < 1 OR C > 3 THEN 6150
  632. 6170 ON C GOSUB 6190, 6520, 3510
  633. 6180 GOTO 6100
  634. 6190 REM ***UKN`YE GÖRE ARAMA***
  635. 6200 CLS : GOSUB 3890
  636. 6210 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  637. 6215 LOCATE 5, 10: INPUT "LÜTFEN ÜYE KAYIT NUMARASINI GÿRÿNÿZ:"; DUKN
  638. 6220 OPEN "I", #1, "ÜYE.DAT"
  639. 6230 IF EOF(1) THEN 6500
  640. 6240 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  641. 6250 IF DUKN = UKN THEN 6260 ELSE 6230
  642. 6260 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  643. 6270 LOCATE 15, 30: PRINT "BÿR TU₧A BASINIZ..."
  644. 6280 T$ = INKEY$
  645. 6290 IF T$ = "" THEN 6280
  646. 6300 CLS
  647. 6310 LOCATE 4, 10: LPRINT "KAYIT HAKKINDA BÿLGÿLER"
  648. 6320 LOCATE 5, 10: LPRINT "***********************"
  649. 6330 LOCATE 4, 50: LPRINT "KÜTÜPHANE"
  650. 6340 LOCATE 5, 48: LPRINT "*********"
  651. 6350 LOCATE 6, 10: LPRINT "ÜYE KAYIT NO......:"; UKN
  652. 6360 LPRINT
  653. 6370 LOCATE 8, 10: LPRINT "ÜYE ADI SOYADI....:"; UA$
  654. 6380 LPRINT
  655. 6390 LOCATE 10, 10: LPRINT "ADRESÿ............:"; A$
  656. 6400 LPRINT
  657. 6410 LOCATE 12, 10: LPRINT "TELEFON...........:"; TEL
  658. 6420 LPRINT
  659. 6430 LOCATE 14, 10: LPRINT "KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  660. 6440 LPRINT
  661. 6450 LOCATE 16, 10: LPRINT "KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  662. 6460 LPRINT
  663. 6470 LOCATE 18, 10: LPRINT "KÿTAP KÜT.KAYIT NO:"; KKN
  664. 6480 LPRINT
  665. 6490 LOCATE 20, 10: LPRINT "KÿTAP ADI.........:"; KA$
  666. 6500 CLOSE #1
  667. 6510 RETURN
  668. 6520 REM ***UA$`YE GÖRE ARAMA***
  669. 6530 CLS : GOSUB 3890
  670. 6540 LOCATE 4, 10: PRINT "HANGÿ KAYIT HAKKINDA DÖKÜM ALACAKSINIZ..."
  671. 6545 LOCATE 5, 10: INPUT "LÜTFEN ÜYE KAYIT NUMARASINI GÿRÿNÿZ:"; DUA$
  672. 6550 OPEN "I", #1, "ÜYE.DAT"
  673. 6560 IF EOF(1) THEN 6830
  674. 6570 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  675. 6580 IF DUA$ = UA$ THEN 6590 ELSE 6560
  676. 6590 LOCATE 12, 10: PRINT "DÖKÜM ALINACAK KAYIT BULUNDU..."
  677. 6600 LOCATE 15, 30: PRINT "BÿR TU₧A BASINIZ..."
  678. 6610 T$ = INKEY$
  679. 6620 IF T$ = "" THEN 6610
  680. 6630 CLS
  681. 6640 LOCATE 4, 10: LPRINT "KAYIT HAKKINDA BÿLGÿLER"
  682. 6650 LOCATE 5, 10: LPRINT "***********************"
  683. 6660 LOCATE 4, 50: LPRINT "KÜTÜPHANE"
  684. 6670 LOCATE 5, 48: LPRINT "*********"
  685. 6680 LOCATE 6, 10: LPRINT "ÜYE KAYIT NO......:"; UKN
  686. 6690 LPRINT
  687. 6700 LOCATE 8, 10: LPRINT "ÜYE ADI SOYADI....:"; UA$
  688. 6710 LPRINT
  689. 6720 LOCATE 10, 10: LPRINT "ADRESÿ............:"; A$
  690. 6730 LPRINT
  691. 6740 LOCATE 12, 10: LPRINT "TELEFON...........:"; TEL
  692. 6750 LPRINT
  693. 6760 LOCATE 14, 10: LPRINT "KÿTAP VERÿ₧ TARÿHÿ:"; KVT$
  694. 6770 LPRINT
  695. 6780 LOCATE 16, 10: LPRINT "KÿTAP ALI₧ TARÿHÿ.:"; KAT$
  696. 6790 LPRINT
  697. 6800 LOCATE 18, 10: LPRINT "KÿTAP KÜT.KAYIT NO:"; KKN
  698. 6810 LPRINT
  699. 6820 LOCATE 20, 10: LPRINT "KÿTAP ADI.........:"; KA$
  700. 6830 CLOSE #1
  701. 6840 RETURN
  702. 6850 REM ***TÜM LÿSTE***
  703. 6860 CLS
  704. 6870 LOCATE 4, 10: LPRINT "ÜYE BÿLGÿ KAYITLARI"
  705. 6880 LOCATE 5, 10: LPRINT "*******************"
  706. 6881 LPRINT STRING$(80, "*")
  707. 6882 LPRINT TAB(5); "ÜYE KAYIT NO"; TAB(30); "ÜYE ADI SOYADI"; TAB(55); "TELEFON"; TAB(75);
  708. 6883 LPRINT STRING$(80, "-")
  709. 6890 OPEN "I", #1, "ÜYE.DAT"
  710. 6900 IF EOF(1) THEN 6980
  711. 6910 INPUT #1, UKN, UA$, A$, TEL, KVT$, KAT$, KKN, KA$
  712. 6950 LPRINT TAB(5); UKN; TAB(30); UA$; TAB(55); TEL; TAB(75);
  713. 6960 LPRINT STRING$(80, "*")
  714. 6970 GOTO 6900
  715. 6980 CLOSE #1
  716. 6990 LOCATE 23, 27: PRINT "LÜTFEN BÿR TUSA BASINIZ..."
  717. 7000 T$ = INKEY$
  718. 7010 IF T$ = "" THEN 7000
  719. 7020 RETURN
  720. 50000 LOCATE 23, 27: PRINT " "
  721. 50001 T$ = INKEY$
  722. 50002 IF T$ = "" THEN 50001
  723. 50003 GOTO 2420
  724. 60000 LOCATE 23, 27: PRINT " "
  725. 60001 T$ = INKEY$
  726. 60002 IF T$ = "" THEN 60001
  727. 60003 GOTO 5870
  728.  
  729.